unit TItemFee;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

implementation

type
  TItemFeeVO = class(TDataTransferObject)
  private
    FItemFeeId: string;
    FParentItemId: string;
    FItemName: string;
    FItemPrice:double;
    FDesc:String;
  published
    property PK_item_fee_id: string index 0 read FItemFeeId write FItemFeeId;
    property parent_item_id: string index 1 read FParentItemId write FParentItemId;
    property item_name: String index 2 read FItemName write FItemName;
    property item_price: double index 3 read FItemPrice write FItemPrice;
    property desc: String index 4 read FDesc write FDesc;
  public
    constructor Create;
    procedure Reset();
  end;



constructor TItemFeeVO.Create;
begin
  inherited Create;
  tbName := 'inf_item_fee';
  SetLength(GridInfo, 5);
end;

procedure TItemFeeVO.Reset();
begin
  FItemFeeId := '-999';
  FParentItemId := '-999';
  FItemName := '-999';
  FItemPrice:= -999;
  FDesc := '-999';
end;

end.
